home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / GEN.DCR / 00571.ls < prev    next >
Encoding:
Text File  |  1998-12-02  |  1.1 KB  |  59 lines
  1. on enterFrame
  2.   global ActiveHZone
  3.   set ActiveHZone to "21"
  4.   set ro to rollOver()
  5.   set thereIsRoll to 0
  6.   if (ro >= 45) and (ro <= 51) then
  7.     set thereIsRoll to 1
  8.     cursor([member "mousePointer", member "mousePointerMask"])
  9.   end if
  10.   if thereIsRoll = 0 then
  11.     cursor(-1)
  12.   end if
  13.   updateStage()
  14. end
  15.  
  16. on exitFrame
  17.   set ro to rollOver()
  18.   case ro of
  19.     30:
  20.       initSprites()
  21.       puppetSprite(1, 1)
  22.       puppetSprite(2, 1)
  23.       puppetSprite(3, 1)
  24.       go("OrdinateurVOnLogo1")
  25.     31:
  26.       initSprites()
  27.       puppetSprite(1, 1)
  28.       puppetSprite(2, 1)
  29.       puppetSprite(3, 1)
  30.       go("OrdinateurVOnLogo2")
  31.     32:
  32.       initSprites()
  33.       puppetSprite(1, 1)
  34.       puppetSprite(2, 1)
  35.       puppetSprite(3, 1)
  36.       go("OrdinateurVOnLogo3")
  37.     33:
  38.       initSprites()
  39.       puppetSprite(1, 1)
  40.       puppetSprite(2, 1)
  41.       puppetSprite(3, 1)
  42.       go("OrdinateurVOnLogo4")
  43.     34:
  44.       initSprites()
  45.       puppetSprite(1, 1)
  46.       puppetSprite(2, 1)
  47.       puppetSprite(3, 1)
  48.       go("OrdinateurVOnLogo5")
  49.     otherwise:
  50.       go(the frame)
  51.   end case
  52. end
  53.  
  54. on mouseUp
  55.   cursor(-1)
  56.   playThisSound("hyplien2", 4)
  57.   go("OrdinateurS4")
  58. end
  59.